home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 September / 1989-09.d64 / blast off (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  117 lines
  1. 10 ifw=2thenrun30
  2. 20 w=2:poke724,0:poke725,0:poke1022,0:poke1023,0
  3. 30 poke53280,0:poke53281,0:print"[154][147]";:(NULL):(NULL):poke53269,0:poke53265,11
  4. 40 poke53282,3:poke53283,14:poke53272,27:poke53270,216
  5. 50 gosub140
  6. 55 print"[158]";peek(724)+256*peek(725)
  7. 60 print"[159]***blast-off![159]***"
  8. 70 print"plug joystick in port 2."
  9. 80 (NULL) 2,203,2,17:(NULL) 8:(NULL)2,80,90:(NULL)2,1,1:(NULL)2:poke53269,4
  10. 90 print"press fire to start"
  11. 95 print"[154]";:gosub130:print"";spc(35);"[168][169]";
  12. 97 sl=1520:gosub150:poke53265,27:poke716,3:poke198,0
  13. 98 print"[156]high:";peek(1022)+256*peek(1023);
  14. 100 geta$:ifa$<>""andlen(aa$)<6thenaa$=aa$+a$:ifaa$="[137][134][135][136]"then270
  15. 105 if(peek(56320)and16)=16then100
  16. 110 (NULL)5:(NULL):(NULL):print"[147]";
  17. 112 print"3 - 2 - 1 - blast-off!":forl=1to500:next
  18. 113 forl=0to34:gosub160:forll=1to12:next:gosub165:forll=1to10:next:next:print"[147]"
  19. 115 poke724,.:poke725,.:lv=1:ps=1000:pq=2500:xs=2:goto300
  20. 120 sc=peek(724)+256*peek(725):print"[158]";sc:print"";
  21. 125 print"[159]lives:";peek(716);"[157] ";
  22. 127 print"level";lv:return
  23. 130 print"[194][195][196][197][157][157][157][157][198][199][200][201][157][157][157][157][202][203][204][205][157][157][157][157][206][207][208][209]";:return
  24. 135 print"[210][211][212][213][214][157][157][157][157][157][215][216][217][218][219][157][157][157][157][157][220][221][255][223][160][157][157][157][157][157][161][162][163][164][165]";:return
  25. 140 forl=0to20:x=int(rnd(1)*999)+1024:xx=int(rnd(1)*5)
  26. 142 ifxx<2thenpokex,103:goto147
  27. 144 ifxx<4thenpokex,106:goto147
  28. 146 pokex,65:pokex+54272,14:goto148
  29. 147 pokex+54272,9
  30. 148 next:return
  31. 150 s=54272:s%=40:forl=0to6:forll=0to7:pokesl+s+l*s%+ll,14
  32. 155 pokesl+l*s%+ll,107+8*l+ll:nextll,l:return
  33. 160 print"[150]#$[154]%'([146][157][157][157][157][157]";:return
  34. 165 print" [155]#$[154]%'([146][157][157][157][157][157]";:return
  35. 170 print"[154]+,-.[157][157][157][157]/012[157][157][157][157]3456[157][157][157][157]789:[146]";:return
  36. 270 poke716,200:goto110
  37. 280 forl=0to9:poke828+l,peek(1639+l):poke838+l,peek(55911+l):next:return
  38. 290 forl=0to9:poke1639+l,peek(828+l):poke55911+l,peek(838+l):next:return
  39. 300 print"[147]";:poke53265,11
  40. 305 onlvgoto310,320,330,337,340,345,350,355,360,365,330,370
  41. 310 gosub140:print"[154]";:gosub135:print"[145][145][166]";
  42. 315 goto400
  43. 320 gosub140:print"[154]";spc(32);:gosub130:print"";:gosub130
  44. 325 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][166][145][145][145][168][169]";:goto400
  45. 330 gosub140:print"[154]";spc(30);:gosub135:print"";
  46. 333 gosub130:print"[145][166][145][166][168][169][157][157][157][157][157][157][157][157][157][168][169][145][166]";
  47. 335 print"";:gosub170:goto400
  48. 337 gosub140:print"[154])*[146]";:gosub135:sl=1451:gosub150
  49. 338 goto400
  50. 340 gosub140:print"[154][157][157][157][157][157][157][157][157][157][157]";:gosub135:print"[145][145]";
  51. 342 gosub130:sl=1448:gosub150:print"[157][157][157][157][157][157][157][157][157][157][157][157][157]";:gosub170:goto400
  52. 345 gosub140:print"[154])*[146][145][145][145][145][145][145][157]";:gosub135:print"[168][169]";
  53. 347 print"[157][157][157][157]";:gosub130:print"[157])*[146][157][145][145][145][145][145][145]";:sl=1251:gosub170
  54. 348 gosub150:goto400
  55. 350 gosub140:sl=1439:gosub150:print"[154][157][157][157][157][157][157][157][157]";:gosub170
  56. 352 print"[168][169][166][145][166][157][157][157][157][157][157][157])*":goto400
  57. 355 gosub140:print"[154]";:gosub170:print"[145][145][145][145]";:gosub135:print"[145][166]";
  58. 357 print"";:gosub170:print"[157][157][157][157][157][157][157][157][157][157][157][157][157]";:gosub130:goto400
  59. 360 gosub140:sl=1425:gosub150:print"[154]";:gosub135
  60. 362 print"[145][145][145][145]";:gosub130:print"[145][145][145][168][169][145])*[146][145][166][145][193][151][167][154][170]";:goto400
  61. 365 gosub140:print"[154])*[146][168][169][145][166][167][157][157][157][157]";:gosub130
  62. 367 print"[145][145]";:gosub170:print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:gosub130:goto400
  63. 370 gosub140:sl=1064:gosub150:sl=1335:gosub150:print"[154]";
  64. 375 gosub135:print"[145]";:gosub170:print"[145][145][145][145]";:gosub130
  65. 380 print"[157][157][157][157][157][157][145][145][145][145][145][145][145]";:gosub130
  66. 385 print"[166][157])*[146][145][168][169]";
  67. 400 poke53265,27:gosub120:gosub280:print"";
  68. 402 print"level";lv;"[157]!";
  69. 405 forl=1to2000:next:gosub290:forl=2to7:(NULL)l:next
  70. 410 (NULL)
  71. 420 gosub120
  72. 430 ifpeek(716)=0then1000
  73. 440 ifsc>psthen900
  74. 450 goto420
  75. 460 forl=1to20:gosub120:next:poke719,xs:rs=xs:ifpeek(716)=0then1000
  76. 465 (NULL)
  77. 470 ifpeek(719)=0then1500
  78. 475 (NULL)3:forl=1to110:(NULL)2:(NULL)4:(NULL)5:(NULL)6:next:goto1400
  79. 477 ll=peek(716)
  80. 480 gosub120:ifpeek(716)<llthen910
  81. 482 ifpeek(716)=0then1000
  82. 485 (NULL)2:(NULL)4:(NULL)5:(NULL)6
  83. 490 ifpeek(719)<rsthen905
  84. 500 goto480
  85. 900 (NULL)(NULL):forl=2to7:(NULL)l:next:goto460
  86. 905 (NULL)7:rs=rs-1:goto470
  87. 910 ll=ll-1:(NULL)0:ifpeek(716)=0then1000
  88. 915 goto470
  89. 1000 (NULL):(NULL):print"game over!":gosub120
  90. 1010 forl=1to5000:next
  91. 1020 ifsc>peek(1022)+256*peek(1023)thenpoke1022,peek(724):poke1023,peek(725)
  92. 1030 run30
  93. 1400 (NULL)3,1,1:ll=peek(719)
  94. 1410 ifll=1orll=5orll=9then:(NULL)3,203,2,17
  95. 1420 ifll=2orll=6orll=10then:(NULL)3,200,0,0
  96. 1430 ifll=3orll=7orll=11then:(NULL)3,201,0,0
  97. 1440 ifll=4orll=8orll=12then:(NULL)3,197,0,0
  98. 1490 goto477
  99. 1500 (NULL)(NULL):forl=1to1500:next:forl=2to7:(NULL)l:next
  100. 1505 forl=1to500:next:ifpeek(716)=0then1000
  101. 1510 lv=lv+1:ps=ps+pq:xs=xs+1:iflv=13then2000
  102. 1515 iflv=7then1530
  103. 1520 goto300
  104. 1530 print"[147]";:gosub120:print"";
  105. 1540 forl=0to34:gosub160:forll=1to12:next:gosub165:forll=1to10:next:next
  106. 1545 print"     ";:poke716,peek(716)+1:gosub120:print"";spc(14);
  107. 1550 (NULL)7:fort=1to5:print"extra life![157][157][157][157][157][157][157][157][157][157][157]";:forl=1to300:next
  108. 1560 print"           [157][157][157][157][157][157][157][157][157][157][157]";:forl=1to100:nextl,t
  109. 1570 goto300
  110. 2000 poke53265,11:lv=12
  111. 2005 (NULL):(NULL):print"[147][154]";:gosub140:print"[168][169])*[146][157][157][157][157][157][157][166]";
  112. 2007 gosub120:sl=1214:gosub150
  113. 2010 print"congratulations!"
  114. 2020 print"you have successfully fought off all the";
  115. 2030 print"enemy attack fighters and saved the     galaxy!":poke53265,27
  116. 2040 forl=1to4000:next:goto1000
  117.